﻿Partial Public Class MySchedulerControl

    Private Sub MyOnAppointmentlLoadMapping(ByVal sender As Object, ByVal e As EventArgs)
        SchedulerStorage1.Appointments.Mappings.AppointmentId = "TimeCardDetailID"
        SchedulerStorage1.Appointments.Mappings.AllDay = "AllDayEvent"
        SchedulerStorage1.Appointments.Mappings.Description = "WorkDescription"
        'SchedulerStorage1.Appointments.Mappings.Label = "Labelint"
        SchedulerStorage1.Appointments.Mappings.Subject = "TimeName"
        'SchedulerStorage1.Appointments.Mappings.Location = "Location"
        SchedulerStorage1.Appointments.Mappings.Start = "StartTime"
        SchedulerStorage1.Appointments.Mappings.End = "EndTime"
        '  Me.SchedulerStorage1.Appointments.Mappings.Status = "Status"
        ' Me.SchedulerStorage1.Appointments.Mappings.Type = "Type"

        SchedulerStorage1.Appointments.CustomFieldMappings.Add(New AppointmentCustomFieldMapping("CustomHrs", "BillableHours"))
        SchedulerStorage1.Appointments.CustomFieldMappings.Add(New AppointmentCustomFieldMapping("CustomWorkCodeId", "WorkCodeID_FK"))
        'SchedulerStorage1.Appointments.CustomFieldMappings.Add(New AppointmentCustomFieldMapping("CustomCategoryId", "ProjectCategorieId_FK"))
        'SchedulerStorage1.Appointments.CustomFieldMappings.Add(New AppointmentCustomFieldMapping("CustomTypeId", "ProjectTypeId_FK"))
    End Sub
End Class
